Option Explicit
Sub I_Sample004()
    With Worksheets(1).PageSetup				'N
        .LeftMargin = Application.CentimetersToPoints(2)  	'd
        .RightMargin = Application.CentimetersToPoints(2) 	'kd
        .TopMargin = Application.CentimetersToPoints(2)   	'Wd
        .BottomMargin = Application.CentimetersToPoints(2)  	'Ud
        .HeaderMargin = Application.CentimetersToPoints(1)	'd
        .FooterMargin = Application.CentimetersToPoints(1) 'd
    End With
End Sub
